Dim $pos0,$pos1,$Flag

AutoItSetOption ("TrayIconHide",1)

$pos0 = MouseGetPos()
$Flag = 0
While(True)
	$pos1 = MouseGetPos()
	if (Abs($pos1[0]-$pos0[0]) + Abs($pos1[1]-$pos0[1])) > 50  Then
		ExitLoop
	EndIf

	if($Flag = 0 ) Then
		$Flag = 1
		MouseMove($pos0[0],$pos0[1]-1)
	Else
		$Flag = 0
		MouseMove($pos0[0],$pos0[1]+1)
	EndIf

	Sleep(1000)
WEnd